inherited fmAddEditRR: TfmAddEditRR
  Left = 449
  Top = 239
  Width = 578
  Height = 407
  Caption = 'fmAddEditRR'
  Constraints.MinHeight = 407
  Constraints.MinWidth = 578
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 342
    Width = 562
  end
  inherited Panel1: TPanel
    Width = 562
    TabOrder = 1
    inherited BitBtn1: TBitBtn
      Left = 384
    end
    inherited BitBtn2: TBitBtn
      Left = 472
    end
  end
  object Panel3: TPanel [2]
    Left = 0
    Top = 45
    Width = 562
    Height = 297
    Align = alClient
    TabOrder = 0
    object Label18: TLabel
      Left = 16
      Top = 12
      Width = 92
      Height = 13
      Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100' '#1091#1089#1083#1091#1075
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 179
      Width = 67
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 16
      Top = 124
      Width = 105
      Height = 13
      Caption = #1055#1086#1076#1087#1080#1089#1072#1083' '#1079#1072#1103#1074#1083#1077#1085#1080#1077
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 16
      Top = 73
      Width = 74
      Height = 13
      Caption = #1058#1080#1087' '#1079#1072#1103#1074#1083#1077#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lcbPU: TcxDBLookupComboBox
      Left = 15
      Top = 28
      DataBinding.DataField = 'PID_POLUCH'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'PID'
      Properties.ListColumns = <
        item
          Caption = #1060#1048#1054
          FieldName = 'PP'
        end
        item
          Caption = #1057#1090#1072#1090#1091#1089
          FieldName = 'SDNAME'
        end
        item
          Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
          Fixed = True
          FieldName = 'PDATEBIRTH'
        end>
      Properties.ListSource = dsPeople
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 0
      OnMouseDown = lcbPUMouseDown
      Width = 538
    end
    object lcbP: TcxDBLookupComboBox
      Left = 15
      Top = 140
      DataBinding.DataField = 'PID'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Properties.DropDownListStyle = lsEditList
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'PID'
      Properties.ListColumns = <
        item
          Caption = #1060#1048#1054
          FieldName = 'PP'
        end
        item
          Caption = #1057#1090#1072#1090#1091#1089
          FieldName = 'SDNAME'
        end
        item
          Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
          Fixed = True
          FieldName = 'PDATEBIRTH'
        end>
      Properties.ListSource = dsDL
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 2
      OnMouseDown = lcbPUMouseDown
      Width = 538
    end
    object cxDBMemo1: TcxDBMemo
      Left = 16
      Top = 200
      DataBinding.DataField = 'RRNOTE'
      DataBinding.DataSource = dlgDS
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = True
      Style.IsFontAssigned = True
      TabOrder = 3
      Height = 73
      Width = 534
    end
    object ltvRequest: TdxDBLookupTreeView
      Left = 14
      Top = 91
      Width = 297
      Height = 24
      CanSelectParents = False
      DropDownRows = 25
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      TabStop = True
      Text = 'ltvRequest'
      TreeViewColor = clWindow
      TreeViewCursor = crDefault
      TreeViewFont.Charset = DEFAULT_CHARSET
      TreeViewFont.Color = clWindowText
      TreeViewFont.Height = -11
      TreeViewFont.Name = 'MS Sans Serif'
      TreeViewFont.Style = []
      TreeViewIndent = 19
      TreeViewReadOnly = False
      TreeViewShowButtons = True
      TreeViewShowHint = False
      TreeViewShowLines = True
      TreeViewShowRoot = True
      TreeViewSortType = stNone
      TreeViewStateImages = DMInv.ilBJTree
      DisplayField = 'SDNAME'
      DividedChar = '.'
      ListSource = dsSD
      KeyField = 'SDID'
      ListField = 'SDNAME'
      Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
      ParentField = 'SDPARID'
      RootValue = 0
      TextStyle = tvtsShort
      DataField = 'RRTYPE'
      DataSource = dlgDS
    end
  end
  object qSD: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT t1.*'
      'FROM'
      '('
      'WITH   recursive'
      '   tree (SDNAME, SDID, SDPARID)'
      '   AS (SELECT SD.SDNAME, SD.SDID, sd.SDPARID FROM SYS_DIC SD'
      '      WHERE sd.SDPARID  = 26'
      '      UNION ALL'
      '      SELECT SD1.SDNAME, SD1.SDID, sd1.SDPARID'
      ''
      '      FROM SYS_DIC SD1'
      '          INNER JOIN tree t '
      '           ON t.sdid = sd1.SDPARID)'
      ' SELECT  SDNAME, SDID, SDPARID FROM tree t'
      ') AS t1'
      'where t1.sdid <> 11914'
      'order by 1'
      '')
    GeneratorField.Field = 'SDID'
    Left = 344
    Top = 144
    object qSDSDNAME: TIBStringField
      FieldName = 'SDNAME'
      ProviderFlags = []
      Size = 2304
    end
    object qSDSDID: TIntegerField
      FieldName = 'SDID'
      ProviderFlags = []
    end
    object qSDSDPARID: TIntegerField
      FieldName = 'SDPARID'
      ProviderFlags = []
    end
  end
  object dsSD: TDataSource
    DataSet = qSD
    Left = 315
    Top = 142
  end
  object dsPeople: TDataSource
    DataSet = qPeople1
    Left = 400
    Top = 102
  end
  object qPeople1: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, PS.SDID, PDATEBIRTH'
      'FROM PEOPLE P'
      'INNER JOIN P_STATUS PS ON PS.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = PS.SDID'
      ''
      'WHERE P.PISDELETE IS NULL and PS.sdid = 1246 '
      'ORDER BY 3, 2')
    Left = 432
    Top = 102
    object qPeople1PID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPeople1PP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPeople1SDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qPeople1SDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object qPeople1PDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
  end
  object dsDL: TDataSource
    DataSet = qDL
    Left = 416
    Top = 198
  end
  object qDL: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP,'
      '    SD.SDNAME, PS.SDID, PDATEBIRTH'
      'FROM PEOPLE P'
      'INNER JOIN P_STATUS PS ON PS.PID = P.PID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = PS.SDID'
      ''
      'WHERE P.PISDELETE IS NULL and PS.sdid <> 1246'
      ' '
      'ORDER BY 3, 2')
    Left = 456
    Top = 198
    object IntegerField1: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IBStringField1: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object IBStringField2: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object IntegerField2: TIntegerField
      FieldName = 'SDID'
      Origin = '"P_STATUS"."SDID"'
    end
    object DateField1: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
  end
end
